home *** CD-ROM | disk | FTP | other *** search
/ Joystick Magazine 1999 November / cd joystick no109 novembre 1999.iso / Data / sharewares / utilitaires / XQXSET50.ZIP / _SETUP.1 / XQ Network Logoff 1.xpl < prev    next >
Text File  |  1999-06-12  |  1KB  |  49 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Network\Logoff"
  5. "NAME"="Logoff Options"
  6. "VERSION"="1.0"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Show "Shut down and Power off" in Shut down dialog"
  9. ***"DESCRIPTION 1"="Activate "Show Shut down & Power off" if this option should be available if an user selectes to shut down the computer. Else it's only possible to shut down the computer and switch it manually off."
  10. "AUTHOR"="Xteq Systems"
  11. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  12. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@gmx.net."
  13. "COMMENT 2"=" "
  14.  
  15.  
  16.  
  17. sP="HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\"
  18. sV2="PowerdownAfterShutdown"
  19.  
  20. Sub Plugin_Initialize 
  21.  if RegPathExists(sp) then
  22.  
  23.   i=RegReadValue(sp & sv2)
  24.   if i=1 then SetUIElement 1,true
  25.  
  26.  else
  27.   Disable
  28.  end if
  29. End Sub
  30.  
  31. Sub Plugin_CheckData(ElementIndex)
  32. End Sub
  33.  
  34. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  35.  b=GetUIElement(1)
  36.  if b=true then
  37.   Call RegWriteValue(sp & sv2,"1",1)
  38.  else
  39.   Call RegWriteValue(sp & sv2,"0",1)
  40.  end if
  41.  
  42. End Sub
  43.  
  44. Sub Plugin_Terminate 
  45. End Sub
  46.  
  47.  
  48.  
  49.